home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Franz PD
/
Franz PD Disk #269 (1993)(Rhein-Sieg-Soft)(Disk 1 of 2).zip
/
Franz PD Disk #269 (1993)(Rhein-Sieg-Soft)(Disk 1 of 2).adf
/
Do_it_yourself
/
TextEditor
/
TextEditor.amosSourceCode
Wrap
AMOS Source Code
|
1993-10-11
|
533b
|
31 lines
Screen Open 0,640,512,2,Hires
Input "Wie hei�t deine KOPIE von der In_Seenot-BlankAdventure Disk? ";DISK$
Cls
Dir$=DISK$
Open In 1,"FLAG"
Input #1,A
Close 1
Dir$=DISK$+"daten/"
MORE:
A=A+1
ST$=Str$(A)-" "
NEU:
Cls
Locate 0,0
Print "Text Nummer: ";A
Input "�nderung der Lebenskraft ( Zahlen von -12 bis 12 sind nur logisch): ";AG
Print "Text:"
Input "";A$
If A$="QUIT" Then Goto BYE
If Len(A$)>1000 Then Goto NEU
Open Out 1,ST$
Print #1,AG
Print #1,A$
Close 1
Goto MORE
BYE:
Dir$=DISK$
A=A-1
Open Out 1,"Flag"
Print #1,A
Close 1